﻿Public MustInherit Class Bewegungstabelle
    Inherits ObjektTabelle
    Protected STADT As Integer = -1
    Protected BASIS As Integer = -1
    Protected HQ As Integer = -1
    Protected WERFT As Integer = -1
    Protected LABOR As Integer = -1
    Protected FLUGHAFEN As Integer = -1
    Protected TURM As Integer = -1
    Protected STRASSE As Integer = -1
    Protected EBENE As Integer = -1
    Protected WALD As Integer = -1
    Protected STRAND As Integer = -1
    Protected EBENESCHROTT As Integer = -1
    Protected BRUECKE As Integer = -1
    Protected BERG As Integer = -1
    Protected FLUSS As Integer = -1
    Protected SEE As Integer = -1
    Protected RIFF As Integer = -1
    Protected RAKETENSILORAKETE As Integer = -1
    Protected RAKETENSILO As Integer = -1
    Protected PIPESTATION As Integer = -1
    Protected AUSGETROCKNETESFLUSSBETT As Integer = -1
    Protected FELSEN As Integer = -1
    Protected GIPFEL As Integer = -1
    Protected KAKTEEN As Integer = -1
    Protected KAPUTTEPIPESCHWEISS As Integer = -1
    Protected KAPUTTESCHWEISSNAHT As Integer = -1
    Protected KIEFERN As Integer = -1
    Protected PFAD As Integer = -1
    Protected PIPE As Integer = -1
    Protected PIPELINE As Integer = -1
    Protected PIPESCHWEISS As Integer = -1
    Protected PLINE As Integer = -1
    Protected PLINEKAPUTT As Integer = -1
    Protected PLINESCHWEISS As Integer = -1
    Protected SCHNEE As Integer = -1
    Protected SCHWEISSNAHT As Integer = -1
    Protected STRASSENFROST As Integer = -1
    Protected WUESTE As Integer = -1
    Protected MAUER As Integer = -1
    Protected ZUGBRUECKE As Integer = -1
    Protected MINE As Integer = -1
    Protected WUESTENSCHROTT As Integer = -1
    Protected SCHNEESCHROTT As Integer = -1
    Protected SUMPF As Integer = -1
    Protected LUFT As Integer = -1
    Protected WOLKEN As Integer = -1
    Protected BAUBRUECKE As Integer = -1
    Protected RADAR As Integer = -1
    Protected TEMPWERFT As Integer = -1
    Protected TEMPFLUGHAFEN As Integer = -1
    Protected NEBEL As Integer = -1
    Protected RAUESEE As Integer = -1
    Protected OEDLAND As Integer = -1
    Protected RUINEN As Integer = -1
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Select Case Name.ToUpper
            Case "STADT"
                Return STADT
            Case "BASIS"
                Return BASIS
            Case "HQ"
                Return HQ
            Case "WERFT"
                Return WERFT
            Case "LABOR"
                Return LABOR
            Case "FLUGHAFEN"
                Return FLUGHAFEN
            Case "TURM"
                Return TURM
            Case "STRASSE"
                Return STRASSE
            Case "EBENE"
                Return EBENE
            Case "WALD"
                Return WALD
            Case "STRAND"
                Return STRAND
            Case "EBENE+SCHROTT"
                Return EBENESCHROTT
            Case "BRUECKE"
                Return BRUECKE
            Case "BERG"
                Return BERG
            Case "FLUSS"
                Return FLUSS
            Case "SEE"
                Return SEE
            Case "RIFF"
                Return RIFF
            Case "RAKETENSILO+RAKETE"
                Return RAKETENSILORAKETE
            Case "RAKETENSILO"
                Return RAKETENSILO
            Case "PIPESTATION"
                Return PIPESTATION
            Case "AUSGETROCKNETESFLUSSBETT"
                Return AUSGETROCKNETESFLUSSBETT
            Case "FELSEN"
                Return FELSEN
            Case "GIPFEL"
                Return GIPFEL
            Case "KAKTEEN"
                Return KAKTEEN
            Case "KAPUTTEPIPESCHWEISS"
                Return KAPUTTEPIPESCHWEISS
            Case "KAPUTTESCHWEISSNAHT"
                Return KAPUTTESCHWEISSNAHT
            Case "KIEFERN"
                Return KIEFERN
            Case "PFAD"
                Return PFAD
            Case "PIPE"
                Return PIPE
            Case "PIPELINE"
                Return PIPELINE
            Case "PIPESCHWEISS"
                Return PIPESCHWEISS
            Case "PLINE"
                Return PLINE
            Case "PLINEKAPUTT"
                Return PLINEKAPUTT
            Case "PLINESCHWEISS"
                Return PLINESCHWEISS
            Case "SCHNEE"
                Return SCHNEE
            Case "SCHWEISSNAHT"
                Return SCHWEISSNAHT
            Case "STRASSENFROST"
                Return STRASSENFROST
            Case "WUESTE"
                Return WUESTE
            Case "MAUER"
                Return MAUER
            Case "ZUGBRUECKE"
                Return ZUGBRUECKE
            Case "MINE"
                Return MINE
            Case "WUESTE+SCHROTT"
                Return WUESTENSCHROTT
            Case "SCHNEE+SCHROTT"
                Return SCHNEESCHROTT
            Case "SUMPF"
                Return SUMPF
            Case "LUFT"
                Return LUFT
            Case "WOLKEN"
                Return WOLKEN
            Case "BAUBRUECKE"
                Return BAUBRUECKE
            Case "RADAR"
                Return RADAR
            Case "TEMPWERFT"
                Return TEMPWERFT
            Case "TEMPFLUGHAFEN"
                Return TEMPFLUGHAFEN
            Case "NEBEL"
                Return NEBEL
            Case "RAUESEE"
                Return RAUESEE
            Case "OEDLAND"
                Return OEDLAND
            Case "RUINE"
                Return RUINEN
            Case Else
                Return -1
        End Select
    End Function
    Public Overrides Sub SetWert(ByVal Name As String, ByVal Wert As Integer)
        Select Case Name.ToUpper
            Case "STADT"
                STADT = Wert
            Case "BASIS"
                BASIS = Wert
            Case "HQ"
                HQ = Wert
            Case "WERFT"
                WERFT = Wert
            Case "LABOR"
                LABOR = Wert
            Case "FLUGHAFEN"
                FLUGHAFEN = Wert
            Case "TURM"
                TURM = Wert
            Case "STRASSE"
                STRASSE = Wert
            Case "EBENE"
                EBENE = Wert
            Case "WALD"
                WALD = Wert
            Case "STRAND"
                STRAND = Wert
            Case "EBENE+SCHROTT"
                EBENESCHROTT = Wert
            Case "BRUECKE"
                BRUECKE = Wert
            Case "BERG"
                BERG = Wert
            Case "FLUSS"
                FLUSS = Wert
            Case "SEE"
                SEE = Wert
            Case "RIFF"
                RIFF = Wert
            Case "RAKETENSILO+RAKETE"
                RAKETENSILORAKETE = Wert
            Case "RAKETENSILO"
                RAKETENSILO = Wert
            Case "PIPESTATION"
                PIPESTATION = Wert
            Case "AUSGETROCKNETESFLUSSBETT"
                AUSGETROCKNETESFLUSSBETT = Wert
            Case "FELSEN"
                FELSEN = Wert
            Case "GIPFEL"
                GIPFEL = Wert
            Case "KAKTEEN"
                KAKTEEN = Wert
            Case "KAPUTTEPIPESCHWEISS"
                KAPUTTEPIPESCHWEISS = Wert
            Case "KAPUTTESCHWEISSNAHT"
                KAPUTTESCHWEISSNAHT = Wert
            Case "KIEFERN"
                KIEFERN = Wert
            Case "PFAD"
                PFAD = Wert
            Case "PIPE"
                PIPE = Wert
            Case "PIPELINE"
                PIPELINE = Wert
            Case "PIPESCHWEISS"
                PIPESCHWEISS = Wert
            Case "PLINE"
                PLINE = Wert
            Case "PLINEKAPUTT"
                PLINEKAPUTT = Wert
            Case "PLINESCHWEISS"
                PLINESCHWEISS = Wert
            Case "SCHNEE"
                SCHNEE = Wert
            Case "SCHWEISSNAHT"
                SCHWEISSNAHT = Wert
            Case "STRASSENFROST"
                STRASSENFROST = Wert
            Case "WUESTE"
                WUESTE = Wert
            Case "MAUER"
                MAUER = Wert
            Case "ZUGBRUECKE"
                ZUGBRUECKE = Wert
            Case "MINE"
                MINE = Wert
            Case "WUESTE+SCHROTT"
                WUESTENSCHROTT = Wert
            Case "SCHNEE+SCHROTT"
                SCHNEESCHROTT = Wert
            Case "SUMPF"
                SUMPF = Wert
            Case "LUFT"
                LUFT = Wert
            Case "WOLKEN"
                WOLKEN = Wert
            Case "BAUBRUECKE"
                BAUBRUECKE = Wert
            Case "RADAR"
                RADAR = Wert
            Case "TEMPWERFT"
                TEMPWERFT = Wert
            Case "TEMPFLUGHAFEN"
                TEMPFLUGHAFEN = Wert
            Case "NEBEL"
                NEBEL = Wert
            Case "RAUESEE"
                RAUESEE = Wert
            Case "OEDLAND"
                OEDLAND = Wert
            Case "RUINEN"
                RUINEN = Wert
        End Select
    End Sub
End Class
